home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpbind.zip
/
LDB3.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-05-22
|
632b
|
48 lines
program ldb3;
uses bind;
type
YourRecPtr = ^YourRec;
YourRec = record
name : ^string;
end;
procedure display(D, M, A : pointer); far;
begin
writeln(YourRecPtr(D)^.name^)
end;
const
s : string = 'Pat Programmer';
var
B : CopyBinder;
R : YourRec;
i : word;
begin
B.Init(sizeof(YourRec));
R.name := @s;
for i := 1 to 10 do
B.ins(@R);
B.forEach(display,nil,nil);
B.allDel;
B.Done;
readln
end.